68
I have a hierarchy and I need to filter only root items that match, with thier childs

OleObject oComboBox,var_Column,var_Items
any h

oComboBox = ole_1.Object
oComboBox.LinesAtRoot = -1
oComboBox.FilterInclude = 3
var_Column = oComboBox.Columns.Add("Column")
	var_Column.DisplayFilterButton = true
	var_Column.FilterType = 240
	var_Column.Filter = "R1"
var_Items = oComboBox.Items
	h = var_Items.AddItem("R1")
	var_Items.InsertItem(h,,"C1")
	var_Items.InsertItem(h,,"C2")
	var_Items.ExpandItem(h,true)
	h = var_Items.AddItem("R2")
	var_Items.InsertItem(h,,"C1")
	var_Items.InsertItem(h,,"C2")
oComboBox.ApplyFilter()

66
I have a hierarchy and I need to filter only parent items that match, including thier childs

OleObject oComboBox,var_Column,var_Items
any h

oComboBox = ole_1.Object
oComboBox.LinesAtRoot = -1
oComboBox.FilterInclude = 1
var_Column = oComboBox.Columns.Add("Column")
	var_Column.DisplayFilterButton = true
	var_Column.FilterType = 240
	var_Column.Filter = "R1"
var_Items = oComboBox.Items
	h = var_Items.AddItem("R1")
	var_Items.InsertItem(h,,"C1")
	var_Items.InsertItem(h,,"C2")
	var_Items.ExpandItem(h,true)
	h = var_Items.AddItem("R2")
	var_Items.InsertItem(h,,"C1")
	var_Items.InsertItem(h,,"C2")
oComboBox.ApplyFilter()

558
I do not like to specify the item padding for every column I add. The question is how can I do it automatically

OleObject oComboBox,var_Column,var_Columns,var_Items

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.AttachTemplate("handle AddColumn(Column){Column{Def(48)=8;Def(49)=8;AllowDragging=False;AllowSizing = True}}")
oComboBox.HeaderAppearance = 4
oComboBox.DrawGridLines = -1
oComboBox.GridLineStyle = 32
var_Columns = oComboBox.Columns
	var_Columns.Add("Item")
	var_Column = var_Columns.Add("Pos")
		var_Column.Position = 0
		var_Column.Width = 32
		var_Column.AllowSizing = false
		var_Column.FormatColumn = "1 index ``"
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oComboBox.EndUpdate()

472
I cannot seem to get autosearch=1 (contains) in the column object to search properly. It still only finds items that start with the typed character. I want to it look to see if the typed character(s) are contained in the item. I Can't seem to get this to work

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.Style = 2
oComboBox.HeaderVisible = false
oComboBox.AutoSearch = true
oComboBox.AutoDropDown = true
oComboBox.IntegralHeight = true
oComboBox.Columns.Add("Default").AutoSearch = 1
var_Items = oComboBox.Items
	var_Items.AddItem("This is a bit of text")
	var_Items.AddItem("This is a another text")
oComboBox.EndUpdate()

94
I can't scroll to the end of the data. What can I do

OleObject oComboBox,var_Items,var_Items1,var_Items2,var_Items3

oComboBox = ole_1.Object
oComboBox.ScrollBySingleLine = true
oComboBox.DrawGridLines = -2
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
	var_Items.ItemHeight(var_Items.AddItem(0),13)
oComboBox.PutItems(oComboBox.GetItems(0))
var_Items1 = oComboBox.Items
	var_Items1.ItemHeight(var_Items1.AddItem(1),26)
oComboBox.PutItems(oComboBox.GetItems(0))
var_Items2 = oComboBox.Items
	var_Items2.ItemHeight(var_Items2.AddItem(2),36)
oComboBox.PutItems(oComboBox.GetItems(0))
var_Items3 = oComboBox.Items
	var_Items3.ItemHeight(var_Items3.AddItem(3),48)
oComboBox.PutItems(oComboBox.GetItems(0))

469
I am using the ScrollWidth/ScrollHeight property on 0 to hide the control's scroll bars, the question is that the drop down button is disappearing. What can be done so I can still show the drop down button

OleObject oComboBox

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.LabelHeight = 40
oComboBox.ScrollWidth = 0
oComboBox.ScrollHeight = 0
oComboBox.DropDownButtonWidth = 40
oComboBox.EndUpdate()

514
I am using filter prompt feature, and also column's filter, just wondering if possible to compact displaying the filter bar so it won't show on multiple lines

OleObject oComboBox,var_Column,var_Column1,var_Items

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.Columns.Add("Item").DisplayFilterButton = true
var_Column = oComboBox.Columns.Add("Pos")
	var_Column.AllowSizing = false
	var_Column.AllowSort = false
	var_Column.Width = 32
	var_Column.FormatColumn = "1 apos ``"
	var_Column.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oComboBox.FilterBarFont = oComboBox.Font
oComboBox.FilterBarCaption = "`<r><i><fgcolor=808080><upline><solidline><sha ;;0>` + value"
oComboBox.FilterBarPromptPattern = "B"
oComboBox.FilterBarPromptVisible = 2067 /*exFilterBarCompact | exFilterBarSingleLine | exFilterBarVisible | exFilterBarPromptVisible*/
var_Column1 = oComboBox.Columns.Item(0)
	var_Column1.FilterType = 240
	var_Column1.Filter = "Item A|Item B"
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

550
I am calling Value to change the selected value, but the selection is not visible, unless I scroll to it

OleObject oComboBox,rs,var_Items

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.ColumnAutoResize = false
rs = CREATE OLEObject
rs.ConnectToNewObject("ADODB.Recordset")
	rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.accdb",1,1)
oComboBox.DataSource = rs
oComboBox.Value = 10311
var_Items = oComboBox.Items
	var_Items.EnsureVisibleItem(var_Items.FocusItem)
oComboBox.EndUpdate()

146
I've seen that you can change the visual appearance for the scroll bar. How can I do that

OleObject oComboBox

oComboBox = ole_1.Object
oComboBox.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oComboBox.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
oComboBox.VisualAppearance.Add(3,"c:\exontrol\images\hot.ebn")
oComboBox.Background(324,16777216 /*0x1000000*/)
oComboBox.Background(325,33554432 /*0x2000000*/)
oComboBox.Background(327,50331648 /*0x3000000*/)
oComboBox.Background(404,RGB(240,240,240))
oComboBox.Background(276,RGB(240,240,240))
oComboBox.Background(511 /*exScrollHoverAll | exDateScrollThumb*/,RGB(240,240,240))
oComboBox.Columns.Add("S").Width = 32
oComboBox.Columns.Add("Level 1").LevelKey = 1
oComboBox.Columns.Add("Level 2").LevelKey = 1
oComboBox.Columns.Add("Level 3").LevelKey = 1
oComboBox.Columns.Add("E1").Width = 32
oComboBox.Columns.Add("E2").Width = 32
oComboBox.Columns.Add("E3").Width = 32
oComboBox.Columns.Add("E4").Width = 32
oComboBox.ColumnAutoResize = false

119
I've seen that the width of the tooltip is variable. Can I make it larger

OleObject oComboBox

oComboBox = ole_1.Object
oComboBox.ToolTipWidth = 328
oComboBox.Columns.Add("tootip").ToolTip = "this is a tooltip that should be very very very very very very very long"

2
I've added a single column, but it is displayed only on a part of the control. Is there something I can do so the column will be fully displayed on the control

OleObject oComboBox

oComboBox = ole_1.Object
oComboBox.Columns.Add("ColumnName")
oComboBox.Items.AddItem("Item 1")
oComboBox.Items.AddItem("Item 2")

473
How would you clear the displayed selection for style DropDownList. So if a user selects or searches a value in a style DropDownList, I want to know if I can reset the control back to an empty selection

/*begin event DropUp() - Occurs when the drop-down portion of the control is hidden.*/
/*
	oComboBox = ole_1.Object
	oComboBox.Value = ""
*/
/*end event DropUp*/

/*begin event SelectionChanged() - Fired after a new item has been selected.*/
/*
	oComboBox = ole_1.Object
	MessageBox("Information",string( "You selected: " ))
	MessageBox("Information",string( String(oComboBox.Value) ))
*/
/*end event SelectionChanged*/

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.Style = 2
oComboBox.HeaderVisible = false
oComboBox.AutoSearch = true
oComboBox.AutoDropDown = true
oComboBox.IntegralHeight = true
oComboBox.Columns.Add("Default").AutoSearch = 1
var_Items = oComboBox.Items
	var_Items.AddItem("This is a bit of text")
	var_Items.AddItem("This is a another text")
	var_Items.DefaultItem = var_Items.InsertItem(,,"")
	var_Items.ItemPosition(0,0)
	var_Items.SortableItem(0,false)
oComboBox.EndUpdate()

560
How I can programmatically select a row (with regular combobox I can set the ListIndex right up to Listcount -1)

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")
	var_Items.AddItem("Item 3")
	var_Items.SelectItem(var_Items.ItemByIndex(1),true)
oComboBox.EndUpdate()

561
How I can programmatically select a row (method 2)

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")
	var_Items.AddItem("Item 3")
oComboBox.Value = "Item 2"
oComboBox.EndUpdate()

88
How do lock / fix some columns to the control, so I can see them all the time, event if I scroll the columns

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.CountLockedColumns = 1
oComboBox.BackColorLock = RGB(240,240,240)
oComboBox.ColumnAutoResize = false
oComboBox.Columns.Add("Locked").Width = 128
oComboBox.Columns.Add("Un-Locked 1").Width = 128
oComboBox.Columns.Add("Un-Locked 2").Width = 128
oComboBox.Columns.Add("Un-Locked 3").Width = 128
var_Items = oComboBox.Items
	var_Items.CellCaption(var_Items.AddItem("locked"),1,"unlocked")

299
How do I vertically align a cell

OleObject oComboBox,var_Items
any h

oComboBox = ole_1.Object
oComboBox.DrawGridLines = -2
oComboBox.Columns.Add("MultipleLine").Def(16,false)
oComboBox.Columns.Add("VAlign")
var_Items = oComboBox.Items
	h = var_Items.AddItem("This is a bit of long text that should break the line")
	var_Items.CellCaption(h,1,"top")
	var_Items.CellVAlignment(h,1,0)
	h = var_Items.AddItem("This is a bit of long text that should break the line")
	var_Items.CellCaption(h,1,"middle")
	var_Items.CellVAlignment(h,1,1)
	h = var_Items.AddItem("This is a bit of long text that should break the line")
	var_Items.CellCaption(h,1,"bottom")
	var_Items.CellVAlignment(h,1,2)

84
How do I use my own icons for my radio buttons

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oComboBox.RadioImage(false,1)
oComboBox.RadioImage(true,2)
oComboBox.Columns.Add("Radio").Def(1,true)
var_Items = oComboBox.Items
	var_Items.AddItem("Radio 1")
	var_Items.CellState(var_Items.AddItem("Radio 2"),0,1)
	var_Items.AddItem("Radio 3")

83
How do I use my own icons for checkbox cells

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oComboBox.CheckImage(0,1)
oComboBox.CheckImage(1,2)
oComboBox.Columns.Add("Check").Def(0,true)
var_Items = oComboBox.Items
	var_Items.AddItem("Check 1")
	var_Items.CellState(var_Items.AddItem("Check 2"),0,1)

479
How do I unselect/deselect the item (Simple style)
OleObject oComboBox,var_Items,var_Items1

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.Style = 0
oComboBox.Columns.Add("Def")
var_Items = oComboBox.Items
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")
	var_Items.AddItem("Item 3")
	var_Items.AddItem("Item 3")
oComboBox.SearchColumnIndex = 0
oComboBox.Value = "Item 2"
var_Items1 = oComboBox.Items
	var_Items1.SelectItem(var_Items1.FocusItem,false)
oComboBox.EndUpdate()

478
How do I unselect/deselect the item (DropDownList style)
OleObject oComboBox,var_Items,var_Items1

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.Style = 1
oComboBox.Columns.Add("Def")
var_Items = oComboBox.Items
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")
	var_Items.AddItem("Item 3")
	var_Items.AddItem("Item 3")
oComboBox.SearchColumnIndex = 0
oComboBox.Value = "Item 2"
var_Items1 = oComboBox.Items
	var_Items1.SelectItem(var_Items1.FocusItem,false)
oComboBox.EndUpdate()

477
How do I unselect/deselect the item (DropDown style)
OleObject oComboBox,var_Items,var_Items1

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.Style = 1
oComboBox.Columns.Add("Def")
var_Items = oComboBox.Items
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")
	var_Items.AddItem("Item 3")
	var_Items.AddItem("Item 3")
oComboBox.SearchColumnIndex = 0
oComboBox.Value = "Item 2"
var_Items1 = oComboBox.Items
	var_Items1.SelectItem(var_Items1.FocusItem,false)
oComboBox.EndUpdate()

288
How do I unselect an item

OleObject oComboBox,var_Items
any h

oComboBox = ole_1.Object
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)
	var_Items.SelectItem(h,false)

155
How do I underline the numbers greater than a value

OleObject oComboBox

oComboBox = ole_1.Object
oComboBox.ConditionalFormats.Add("%0 >= 10").Underline = true
oComboBox.Columns.Add("Numbers")
oComboBox.Items.AddItem(1)
oComboBox.Items.AddItem(2)
oComboBox.Items.AddItem(10)
oComboBox.Items.AddItem(20)

244
How do I underline an item

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
	var_Items.ItemUnderline(var_Items.AddItem("underline"),true)

245
How do I underline a cell or an item

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
	var_Items.CellCaptionFormat(var_Items.AddItem("gets <u>underline</u> only a portion of text"),0,1)

246
How do I underline a cell

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
	var_Items.CellUnderline(var_Items.AddItem("underline"),0,true)

325
How do I turn off the auto complete feature

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.AutoComplete = false
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
	var_Items.AddItem("Item 3")
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")

328
How do I specify the width of the drop down window

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.WidthList(,100)
oComboBox.AllowSizeGrip = true
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
	var_Items.AddItem("Item 3")
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")

327
How do I specify the minimum width of the drop down window

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.MinWidthList = 100
oComboBox.AllowSizeGrip = true
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
	var_Items.AddItem("Item 3")
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")

329
How do I specify the minimum height of the drop down window

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.MinHeightList = 100
oComboBox.AllowSizeGrip = true
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
	var_Items.AddItem("Item 3")
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")

92
How do I specify the indentation of the child items relative to their parents

OleObject oComboBox,var_Items
any h

oComboBox = ole_1.Object
oComboBox.LinesAtRoot = 1
oComboBox.Indent = 11
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)
	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child")

330
How do I specify the height of the drop down window

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.HeightList(,400)
oComboBox.MinWidthList = 100
oComboBox.AllowSizeGrip = true
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
	var_Items.AddItem("Item 3")
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")

338
How do I specify the height of the control's label

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.LabelHeight = 34
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
	var_Items.AddItem("Item 3")
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")

93
How do I specify the column where the tree lines / hierarchy are shown

OleObject oComboBox,var_Items
any h

oComboBox = ole_1.Object
oComboBox.LinesAtRoot = 1
oComboBox.TreeColumnIndex = 1
oComboBox.Columns.Add("Column 1")
oComboBox.Columns.Add("Column 2")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root 1.1")
	var_Items.CellCaption(h,1,"Root 1.2")
	var_Items.CellCaption(var_Items.InsertItem(h,,"Child 1.1"),1,"Child 1.2")
	var_Items.CellCaption(var_Items.InsertItem(h,,"Child 2.1"),1,"Child 2.2")
	var_Items.ExpandItem(h,true)
	h = var_Items.AddItem("Root 2.1")
	var_Items.CellCaption(h,1,"Root 2.2")
	var_Items.CellCaption(var_Items.InsertItem(h,,"Child 1.1"),1,"Child 1.2")

483
How do I sort the index column as numeric

/*begin event InsertItem(long  Item) - Occurs after a new item has been inserted to Items collection.*/
/*
	OleObject var_Items
	oComboBox = ole_1.Object
	var_Items = oComboBox.Items
		var_Items.CellData(Item,1,var_Items.ItemToIndex(Item))
*/
/*end event InsertItem*/

OleObject oComboBox,var_Column,var_Column1,var_Items

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.DrawGridLines = -1
oComboBox.ColumnAutoResize = true
oComboBox.ShowFocusRect = false
oComboBox.SingleEdit = true
var_Column = oComboBox.Columns.Add("Next")
	var_Column.Def(48,4)
	var_Column.Def(52,4)
var_Column1 = oComboBox.Columns.Add("Index")
	var_Column1.AllowSizing = false
	var_Column1.Width = 48
	var_Column1.FormatColumn = "(((0 := (1 index ``)) mod 3) case ( default: ``; 0 : `<r><fgcolor=B0B0B0>`; 1: ``; 2 : `<c><fgcolor=808080>` )) + str(=:0)"
	var_Column1.Def(17,1)
	var_Column1.SortType = 5
	var_Column1.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")
	var_Items.AddItem("Item 3")
	var_Items.AddItem("Item 4")
	var_Items.AddItem("Item 5")
	var_Items.AddItem("Item 6")
	var_Items.AddItem("Item 7")
	var_Items.AddItem("Item 8")
	var_Items.AddItem("Item 9")
	var_Items.AddItem("Item 10")
oComboBox.EndUpdate()

229
How do I sort the child items

OleObject oComboBox,var_Items
any h

oComboBox = ole_1.Object
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)
	var_Items.SortChildren(h,0,false)

79
How do I sort descending a column, and put the sorting icon in the column's header

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")
	var_Items.AddItem("Item 3")
oComboBox.Columns.Item(0).SortOrder = 2

78
How do I sort ascending a column, and put the sorting icon in the column's header

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
	var_Items.AddItem("Item 3")
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")
oComboBox.Columns.Item(0).SortOrder = 1

72
How do I sort a column by numbers

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.Columns.Add("desc").SortType = 1
var_Items = oComboBox.Items
	var_Items.AddItem(1)
	var_Items.AddItem(5)
	var_Items.AddItem(10)
	var_Items.SortChildren(0,0,false)

116
How do I show the tooltip quicker

OleObject oComboBox

oComboBox = ole_1.Object
oComboBox.ToolTipDelay = 1
oComboBox.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"

181
How do I show or hide the sorting icons, but still need sorting

OleObject oComboBox

oComboBox = ole_1.Object
oComboBox.Columns.Add("Sorted").SortOrder = 1
oComboBox.Columns.Item(0).DisplaySortIcon = false

194
How do I show buttons for all cells in the column

OleObject oComboBox,var_Column

oComboBox = ole_1.Object
var_Column = oComboBox.Columns.Add("Button")
	var_Column.Def(2,true)
	var_Column.Def(3,true)
oComboBox.Items.AddItem(" Button 1 ")
oComboBox.Items.AddItem(" Button 2 ")

193
How do I show buttons for all cells in the column

OleObject oComboBox

oComboBox = ole_1.Object
oComboBox.Columns.Add("Button").Def(2,true)
oComboBox.Items.AddItem(0)
oComboBox.Items.AddItem(1)

109
How do I show alternate rows in different background color

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.BackColorAlternate = RGB(240,240,240)
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")
	var_Items.AddItem("Item 3")
	var_Items.AddItem("Item 4")
	var_Items.AddItem("Item 5")

559
How do I set an extra data for each item
/*begin event MouseMove(integer  Button, integer  Shift, long  X, long  Y) - Occurs when the user moves the mouse.*/
/*
	any i
	oComboBox = ole_1.Object
	i = oComboBox.ItemFromPoint(-1,-1,c,hit)
	MessageBox("Information",string( String(i) ))
	MessageBox("Information",string( String(oComboBox.Items.ItemData(i)) ))
*/
/*end event MouseMove*/

OleObject oComboBox,var_Items,var_Items1

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
	var_Items.ItemData(var_Items.AddItem("method 1"),"your extra data of method 1")
	var_Items.InsertItem(0,"your extra data of method 2","method 2")
var_Items1 = oComboBox.Items
	var_Items1.DefaultItem = var_Items1.AddItem("method 3")
	var_Items1.ItemData(0,"your extra data of method 3")
oComboBox.EndUpdate()

286
How do I select an item

OleObject oComboBox,var_Items
any h

oComboBox = ole_1.Object
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)
	var_Items.SelectItem(h,true)

347
How do I select a value

OleObject oComboBox,var_Items
any h

oComboBox = ole_1.Object
oComboBox.IntegralHeight = true
oComboBox.LinesAtRoot = 1
oComboBox.TreeColumnIndex = 1
oComboBox.Columns.Add("Column 1")
oComboBox.Columns.Add("Column 2")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root 1.1")
	var_Items.CellCaption(h,1,"Root 1.2")
	var_Items.CellCaption(var_Items.InsertItem(h,,"Child 1.1"),1,"Child 1.2")
	var_Items.CellCaption(var_Items.InsertItem(h,,"Child 2.1"),1,"Child 2.2")
	var_Items.ExpandItem(h,true)
	h = var_Items.AddItem("Root 2.1")
	var_Items.CellCaption(h,1,"Root 2.2")
	var_Items.CellCaption(var_Items.InsertItem(h,,"Child 1.1"),1,"Child 1.2")
oComboBox.Select(1,"Root 1.2")

348
How do I select a value

OleObject oComboBox,var_Items
any h

oComboBox = ole_1.Object
oComboBox.IntegralHeight = true
oComboBox.LinesAtRoot = 1
oComboBox.TreeColumnIndex = 1
oComboBox.Columns.Add("Column 1")
oComboBox.Columns.Add("Column 2")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root 1.1")
	var_Items.CellCaption(h,1,"Root 1.2")
	var_Items.CellCaption(var_Items.InsertItem(h,,"Child 1.1"),1,"Child 1.2")
	var_Items.CellCaption(var_Items.InsertItem(h,,"Child 2.1"),1,"Child 2.2")
	var_Items.ExpandItem(h,true)
	h = var_Items.AddItem("Root 2.1")
	var_Items.CellCaption(h,1,"Root 2.2")
	var_Items.CellCaption(var_Items.InsertItem(h,,"Child 1.1"),1,"Child 1.2")
oComboBox.Value = "Root 1.1"

466
How do I select a NULL/empty value

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.Style = 2
oComboBox.Columns.Add("Items")
var_Items = oComboBox.Items
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")
	var_Items.AddItem("Item 3")
	var_Items.AddItem("Item 4")
	var_Items.DefaultItem = var_Items.InsertItem(,,"")
	var_Items.ItemPosition(0,0)
	var_Items.SortableItem(0,false)
oComboBox.Value = ""
oComboBox.EndUpdate()

114
How do I search case sensitive, using your incremental search feature

OleObject oComboBox,var_Columns,var_Items,var_Items1

oComboBox = ole_1.Object
oComboBox.AutoSearch = true
oComboBox.ASCIILower = ""
var_Columns = oComboBox.Columns
	var_Columns.Add("exStartWith").AutoSearch = 0
	var_Columns.Add("exContains").AutoSearch = 1
var_Items = oComboBox.Items
	var_Items.CellCaption(var_Items.AddItem("text"),1,"another text")
var_Items1 = oComboBox.Items
	var_Items1.CellCaption(var_Items1.AddItem("text"),1,"another text")

262
How do I retrieve the focused item

OleObject oComboBox,var_Items
any h

oComboBox = ole_1.Object
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)
	var_Items.ItemBold(var_Items.FocusItem,true)

345
How do I remove the drop down's border

OleObject oComboBox

oComboBox = ole_1.Object
oComboBox.DropDownBorder = 0

69
How do I remove the control's border

OleObject oComboBox

oComboBox = ole_1.Object
oComboBox.Appearance = 0

451
How do I prevent scrolling the control's data after user does the sort

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.EnsureOnSort = false
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
	var_Items.AddItem("Item 3")
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")
oComboBox.PutItems(oComboBox.GetItems(0))
oComboBox.PutItems(oComboBox.GetItems(0))
oComboBox.PutItems(oComboBox.GetItems(0))
oComboBox.Columns.Item(0).SortOrder = 1

585
How do I prevent changing the cell's state ( check-box state )
/*begin event CellStateChanging(long  Cell, long  NewState) - Fired before cell's state is about to be changed.*/
/*
	OleObject var_Items
	oComboBox = ole_1.Object
	var_Items = oComboBox.Items
		NewState = var_Items.CellState(,Cell)
*/
/*end event CellStateChanging*/

OleObject oComboBox,var_Column,var_Column1,var_Items
any h

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.LinesAtRoot = -1
var_Column = oComboBox.Columns.Add("P1")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
var_Column1 = oComboBox.Columns.Add("P2")
	var_Column1.Def(0,true)
	var_Column1.PartialCheck = true
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)
oComboBox.EndUpdate()

77
How do I perform my own/custom sort, using my extra strings

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.Columns.Add("desc").SortType = 5
var_Items = oComboBox.Items
	var_Items.CellData(var_Items.AddItem("A"),0,"C")
	var_Items.CellData(var_Items.AddItem("B"),0,"B")
	var_Items.CellData(var_Items.AddItem("C"),0,"A")
	var_Items.SortChildren(0,0,false)

76
How do I perform my own/custom sort, using my extra numbers

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.Columns.Add("desc").SortType = 5
var_Items = oComboBox.Items
	var_Items.CellData(var_Items.AddItem(0),0,2)
	var_Items.CellData(var_Items.AddItem(1),0,1)
	var_Items.CellData(var_Items.AddItem(2),0,0)
	var_Items.SortChildren(0,0,false)

82
How do I perform my own sorting when user clicks the column's header

OleObject oComboBox

oComboBox = ole_1.Object
oComboBox.SortOnClick = 1
oComboBox.Columns.Add("Column")
oComboBox.Items.AddItem("Item 1")
oComboBox.Items.AddItem("Item 2")

334
How do I lock or make read-only the control

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.Locked = true
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
	var_Items.AddItem("Item 3")
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")

331
How do I let user to resize the drop down window, at runtime

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.AllowSizeGrip = true
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
	var_Items.AddItem("Item 3")
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")

332
How do I let user to resize only the width of the drop down window, at runtime

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.AllowSizeGrip = true
oComboBox.AllowVResize = false
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
	var_Items.AddItem("Item 3")
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")

333
How do I let user to resize only the height of the drop down window, at runtime

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.AllowSizeGrip = true
oComboBox.AllowHResize = false
oComboBox.MinWidthList = 100
oComboBox.MinHeightList = 100
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
	var_Items.AddItem("Item 3")
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")

117
How do I let the tooltip being displayed longer

OleObject oComboBox

oComboBox = ole_1.Object
oComboBox.ToolTipPopDelay = 10000
oComboBox.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"

153
How do I highlight in italic the numbers greater than a value

OleObject oComboBox

oComboBox = ole_1.Object
oComboBox.ConditionalFormats.Add("%0 >= 10").Italic = true
oComboBox.Columns.Add("Numbers")
oComboBox.Items.AddItem(1)
oComboBox.Items.AddItem(2)
oComboBox.Items.AddItem(10)
oComboBox.Items.AddItem(20)

154
How do I highlight in italic the numbers greater than a value

OleObject oComboBox

oComboBox = ole_1.Object
oComboBox.ConditionalFormats.Add("%0 >= 10").StrikeOut = true
oComboBox.Columns.Add("Numbers")
oComboBox.Items.AddItem(1)
oComboBox.Items.AddItem(2)
oComboBox.Items.AddItem(10)
oComboBox.Items.AddItem(20)

152
How do I highlight in bold the numbers greater than a value

OleObject oComboBox

oComboBox = ole_1.Object
oComboBox.ConditionalFormats.Add("%0 >= 10").Bold = true
oComboBox.Columns.Add("Numbers")
oComboBox.Items.AddItem(1)
oComboBox.Items.AddItem(2)
oComboBox.Items.AddItem(10)
oComboBox.Items.AddItem(20)

71
How do I hide the control's header bar

OleObject oComboBox

oComboBox = ole_1.Object
oComboBox.HeaderVisible = false

258
How do I get the parent item

OleObject oComboBox,var_Items
any h

oComboBox = ole_1.Object
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)
	var_Items.ItemBold(var_Items.ItemParent(var_Items.ItemChild(h)),true)

232
How do I get the number or count of items

OleObject oComboBox,var_Items,var_Items1
any h

oComboBox = ole_1.Object
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)
var_Items1 = oComboBox.Items
	var_Items1.AddItem(var_Items1.ItemCount)

261
How do I get the number or count of child items

OleObject oComboBox,var_Items
any h

oComboBox = ole_1.Object
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)
	var_Items.AddItem(var_Items.ChildCount(h))

339
How do I get the handle of the drop down window

OleObject oComboBox

oComboBox = ole_1.Object
oComboBox.Columns.Add(String(oComboBox.hWndDropDown))

263
How do I get the handle of the cell

OleObject oComboBox,var_Items
any h

oComboBox = ole_1.Object
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)
	var_Items.CellBold(,var_Items.ItemCell(h,0),true)

257
How do I get the first child item

OleObject oComboBox,var_Items
any h

oComboBox = ole_1.Object
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)
	var_Items.ItemBold(var_Items.ItemChild(h),true)

486
How do I get sorted the column as string, numeric, date, date and time. Also how can it be applied to drop down filter panel

OleObject oComboBox,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Items
any h

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
var_Column = oComboBox.Columns.Add("Date")
	var_Column.SortType = 2
	var_Column.DisplayFilterButton = true
	var_Column.DisplayFilterPattern = false
	var_Column.DisplayFilterDate = true
	var_Column.FilterList = 1296 /*exShowFocusItem | exShowCheckBox | exSortItemsDesc*/
var_Column1 = oComboBox.Columns.Add("DateTime")
	var_Column1.SortType = 3
	var_Column1.DisplayFilterButton = true
	var_Column1.DisplayFilterPattern = false
	var_Column1.FilterList = 1296 /*exShowFocusItem | exShowCheckBox | exSortItemsDesc*/
var_Column2 = oComboBox.Columns.Add("Time")
	var_Column2.SortType = 4
	var_Column2.DisplayFilterButton = true
	var_Column2.DisplayFilterPattern = false
	var_Column2.FilterList = 1296 /*exShowFocusItem | exShowCheckBox | exSortItemsDesc*/
	var_Column2.FormatColumn = "time(value)"
var_Column3 = oComboBox.Columns.Add("Numeric")
	var_Column3.SortType = 1
	var_Column3.DisplayFilterButton = true
	var_Column3.FilterList = 1296 /*exShowFocusItem | exShowCheckBox | exSortItemsDesc*/
var_Column4 = oComboBox.Columns.Add("String")
	var_Column4.DisplayFilterButton = true
	var_Column4.FilterList = 1296 /*exShowFocusItem | exShowCheckBox | exSortItemsDesc*/
var_Items = oComboBox.Items
	h = var_Items.AddItem(2010-01-27)
	var_Items.CellCaption(h,1,DateTime(2010-01-27,10:00:00))
	var_Items.CellCaption(h,2,var_Items.CellCaption(h,1))
	var_Items.CellCaption(h,3,1)
	var_Items.CellCaption(h,4,var_Items.CellCaption(h,3))
	h = var_Items.AddItem(2011-01-27)
	var_Items.CellCaption(h,1,DateTime(2011-01-27,09:00:00))
	var_Items.CellCaption(h,2,var_Items.CellCaption(h,1))
	var_Items.CellCaption(h,3,11)
	var_Items.CellCaption(h,4,var_Items.CellCaption(h,3))
	h = var_Items.AddItem(2010-11-02)
	var_Items.CellCaption(h,1,DateTime(2010-11-02,09:00:00))
	var_Items.CellCaption(h,2,var_Items.CellCaption(h,1))
	var_Items.CellCaption(h,3,2)
	var_Items.CellCaption(h,4,var_Items.CellCaption(h,3))
oComboBox.Columns.Item("DateTime").DisplayFilterDate = false
oComboBox.EndUpdate()

96
How do I get ride of the rectangle arround focused item

OleObject oComboBox

oComboBox = ole_1.Object
oComboBox.ShowFocusRect = false
oComboBox.Columns.Add("Column")
oComboBox.Items.AddItem(0)
oComboBox.Items.AddItem(1)

470
How do I get notified once the user changes the Filter For field
/*begin event EditChange(long  ColIndex) - Fired when the user has taken an action that may have altered text in an edit control.*/
/*
	oComboBox = ole_1.Object
	MessageBox("Information",string( "ColIndex: " ))
	MessageBox("Information",string( String(ColIndex) ))
	MessageBox("Information",string( "Label: " ))
	MessageBox("Information",string( oComboBox.EditText(0) ))
	MessageBox("Information",string( "FilterFor: " ))
	MessageBox("Information",string( oComboBox.EditText(-1) ))
*/
/*end event EditChange*/

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.FilterForVisible = true
oComboBox.FilterForBackColor = RGB(240,240,240)
oComboBox.IntegralHeight = true
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")
	var_Items.AddItem("Item 3")
	var_Items.AddItem("Item 4")
	var_Items.AddItem("Item 5")
oComboBox.EndUpdate()

547
How do I get a list of interfaces the object implemenets

OleObject oComboBox,rs,var_PrivDBEngine

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.ColumnAutoResize = false
var_PrivDBEngine = CREATE OLEObject
var_PrivDBEngine.ConnectToNewObject("DAO.DBEngine.120")
	rs = var_PrivDBEngine.OpenDatabase("C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.accdb").OpenRecordset("Orders")
MessageBox("Information",string( CREATE OLEObject.Interfaces(rs) ))
rs.ConnectToNewObject("Exontrol.PropertiesList")
oComboBox.DataSource = rs
oComboBox.Value = 10248
oComboBox.EndUpdate()

287
How do I find the selected item

OleObject oComboBox,var_Items
any h

oComboBox = ole_1.Object
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)
	var_Items.SelectItem(h,true)
	var_Items.ItemBold(var_Items.SelectedItem(0),true)

294
How do I find the index of the item based on its handle

OleObject oComboBox,var_Items
any h

oComboBox = ole_1.Object
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)
	var_Items.ItemBold(var_Items.ItemByIndex(var_Items.ItemToIndex(h)),true)

293
How do I find the handle of the item based on its index

OleObject oComboBox,var_Items
any h

oComboBox = ole_1.Object
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)
	var_Items.ItemBold(var_Items.ItemByIndex(1),true)

297
How do I find an item based on a path

OleObject oComboBox,var_Items
any h

oComboBox = ole_1.Object
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.ItemData(var_Items.InsertItem(h,,"Child 2"),1234)
	var_Items.ExpandItem(h,true)
	var_Items.ItemBold(var_Items.FindPath("Root 1\Child 1"),true)

296
How do I find an item

OleObject oComboBox,var_Items
any h

oComboBox = ole_1.Object
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)
	var_Items.ItemBold(var_Items.FindItem("Child 2",0),true)

107
How do I filter programatically the control

OleObject oComboBox,var_Column

oComboBox = ole_1.Object
var_Column = oComboBox.Columns.Add("Column")
	var_Column.DisplayFilterButton = true
	var_Column.FilterType = 3
	var_Column.Filter = "Item*"
oComboBox.Items.AddItem("Item 1")
oComboBox.Items.AddItem("")
oComboBox.Items.AddItem("Item 2")
oComboBox.ApplyFilter()

63
How do I filter for items that match exactly the specified string

OleObject oComboBox,var_Column

oComboBox = ole_1.Object
var_Column = oComboBox.Columns.Add("Column")
	var_Column.DisplayFilterButton = true
	var_Column.FilterType = 240
	var_Column.Filter = "Item 1"
oComboBox.Items.AddItem("Item 1")
oComboBox.Items.AddItem("Item 2")
oComboBox.Items.AddItem("Item 3")
oComboBox.ApplyFilter()

234
How do I expand or collapse an item

OleObject oComboBox,var_Items
any h

oComboBox = ole_1.Object
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)

123
How do I expand automatically the items while user types characters to searching for something ( incremental searching )

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.ExpandOnSearch = true
oComboBox.LinesAtRoot = -1
oComboBox.AutoSearch = true
oComboBox.Columns.Add("Column").AutoSearch = 1
var_Items = oComboBox.Items
	var_Items.InsertItem(var_Items.InsertItem(var_Items.AddItem("text"),,"some text"),,"another text")
	var_Items.InsertItem(var_Items.InsertItem(var_Items.AddItem("text"),,"some text"),,"another text")

260
How do I enumerate the visible items

OleObject oComboBox,var_Items
any h

oComboBox = ole_1.Object
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)
	h = var_Items.AddItem("Root 2")
	var_Items.ItemBold(var_Items.FirstVisibleItem,true)
	var_Items.ItemBold(var_Items.NextVisibleItem(var_Items.FirstVisibleItem),true)

259
How do I enumerate the siblings items

OleObject oComboBox,var_Items
any h

oComboBox = ole_1.Object
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)
	h = var_Items.AddItem("Root 2")
	var_Items.ItemBold(var_Items.NextSiblingItem(var_Items.FirstVisibleItem),true)
	var_Items.ItemBold(var_Items.PrevSiblingItem(var_Items.NextSiblingItem(var_Items.FirstVisibleItem)),true)

256
How do I enumerate the root items

OleObject oComboBox,var_Items
any h

oComboBox = ole_1.Object
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)
	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ItemBold(var_Items.RootItem(0),true)
	var_Items.ItemUnderline(var_Items.RootItem(1),true)

40
How do I ensure that the focused item is visible, after the user does the sort

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.EnsureOnSort = true
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
	var_Items.AddItem("Item 3")
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")
oComboBox.PutItems(oComboBox.GetItems(0))
oComboBox.PutItems(oComboBox.GetItems(0))
oComboBox.PutItems(oComboBox.GetItems(0))
oComboBox.Columns.Item(0).SortOrder = 1

108
How do I enlarge the drop down filter window

OleObject oComboBox,var_Column

oComboBox = ole_1.Object
oComboBox.FilterBarDropDownHeight = "-320"
var_Column = oComboBox.Columns.Add("Column")
	var_Column.DisplayFilterButton = true
	var_Column.FilterBarDropDownWidth = "-320"
oComboBox.Items.AddItem("Item 1")
oComboBox.Items.AddItem("Item 2")

165
How do I enlarge or change the size of the control's scrollbars

OleObject oComboBox

oComboBox = ole_1.Object
oComboBox.ScrollHeight = 18
oComboBox.ScrollWidth = 18
oComboBox.ScrollButtonWidth = 18
oComboBox.ScrollButtonHeight = 18

112
How do I enable the incremental search feature within a column

OleObject oComboBox,var_Columns,var_Items,var_Items1

oComboBox = ole_1.Object
oComboBox.AutoSearch = true
var_Columns = oComboBox.Columns
	var_Columns.Add("exStartWith").AutoSearch = 0
	var_Columns.Add("exContains").AutoSearch = 1
var_Items = oComboBox.Items
	var_Items.CellCaption(var_Items.AddItem("text"),1,"another text")
var_Items1 = oComboBox.Items
	var_Items1.CellCaption(var_Items1.AddItem("text"),1,"another text")

138
How do I enable resizing the columns at runtime

OleObject oComboBox,var_Items,var_Items1

oComboBox = ole_1.Object
oComboBox.ColumnsAllowSizing = true
oComboBox.MarkSearchColumn = false
oComboBox.HeaderVisible = false
oComboBox.Columns.Add("Column 1")
oComboBox.Columns.Add("Column 2")
oComboBox.DrawGridLines = 2
var_Items = oComboBox.Items
	var_Items.CellCaption(var_Items.AddItem("Item 1"),1,"Sub Item 1")
var_Items1 = oComboBox.Items
	var_Items1.CellCaption(var_Items1.AddItem("Item 2"),1,"Sub Item 2")

351
How do I enable resizing all the items at runtime

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.ItemsAllowSizing = 1
oComboBox.DrawGridLines = 1
oComboBox.Columns.Add("Column")
oComboBox.Items.AddItem("Item 1")
var_Items = oComboBox.Items
	var_Items.ItemHeight(var_Items.AddItem("Item 2"),48)
oComboBox.Items.AddItem("Item 3")

137
How do I enable resizing ( changing the height ) the items at runtime

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.ItemsAllowSizing = true
oComboBox.ScrollBySingleLine = true
oComboBox.Columns.Add("Column")
oComboBox.Items.AddItem("Item 1")
var_Items = oComboBox.Items
	var_Items.ItemHeight(var_Items.AddItem("Item 2"),48)
oComboBox.Items.AddItem("Item 3")

180
How do I enable or disable the entire column

OleObject oComboBox,var_Items,var_Items1

oComboBox = ole_1.Object
oComboBox.Columns.Add("C1")
oComboBox.Columns.Add("Disabled").Enabled = false
var_Items = oComboBox.Items
	var_Items.CellCaption(var_Items.AddItem(0),1,"0.1")
var_Items1 = oComboBox.Items
	var_Items1.CellCaption(var_Items1.AddItem(1),1,"1.1")

268
How do I enable or disable a cell

OleObject oComboBox,var_Items
any h

oComboBox = ole_1.Object
oComboBox.Columns.Add("C1")
oComboBox.Columns.Add("C2")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Cell 1")
	var_Items.CellCaption(h,1,"Cell 2")
	var_Items.CellEnabled(h,1,false)

553
How do I display the position of the item with 0-padding

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.Columns.Add("Items").FormatColumn = "((1 apos ``) lpad `00`) + `. `  + value"
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
	var_Items.AddItem("Item D")
oComboBox.EndUpdate()

349
How do I display the icons being selected in the control's label

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
	var_Items.CellImage(var_Items.AddItem("Image 1"),0,1)
	var_Items.CellImage(var_Items.AddItem("Image 2"),0,2)
	var_Items.CellImage(var_Items.AddItem("Image 3"),0,3)
oComboBox.AssignEditImageOnSelect(0,true)
oComboBox.Value = "Image 2"